Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/demos/mag6demo.exe/M600D2.ZIP/MARKUNRD.RJE

Text File | 1992-06-09 | 1KB | 21 lines

@c12 ---------- MARKUNRD.RJE - Unmarks all UNREAD mail addressed to a user ---
@z0=v79;                              Get Program Directory into Z0
@z0=(z0+"\mbbsexec.exe");             Complete the filespec
@z10=v86; @z10=(z10+"\markunrd.");    Prepare .mex filespec in Z10
@z1=(z10+"mex ");                     Program name now in Z1
@z12=v88;                             Get WORK directory path into Z12
@z12=(z12+"\");
@z13=o18;                             make random filename (time related)
@z12=(z12+z13);                       Append partial filename
@z12=(z12+".tmp");                    complete the filespec with .tmp extension
@z13=u1;                              Get user ID number in Z13
@z11="@";
@z11=(z11+z12);                       Append (completing) the filename
@z1=(z1+z11);                         Concatenate to Z1
@n10=z13;                             Put ID in N10 (expected by MARKUNRD.MEX)
@$12                                  Save Nx and Zx values in tmp file
@n0=125;                              Run as Priority Class 1, Level 25
@n1=1;                                Have RJE notify user when completed
@e1                                   Start as RJE process
@c13